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RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 
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RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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RUNOFF, MUTE .BLI;1 
XTITLE ‘PERMUTE == Permute onder. entries' 
MODULE PERMUTE (IDENT = ty 

peLissse ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE, NONEXTERNAL = LONG_RELATIVE)] 


BEGIN 


' 
BOSSES SSSL COSI ISS T TST TT TTT TTT TTP eT errr ieee ccc ii rir iit iirc tii c iit iiiiiii. 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
i ALL RIGHTS RESERVED. 


® 
® 
® 
*® 
we 
: ® 
is THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
i ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
is INCLUSION OF THe, NABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER + 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
is OTHER PERSON. NO TITLE TO AND OUNERSHIP OF THE’ SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
* 
® 
* 
* 
® 
® 
* 
*® 
® 
* 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
° poRPOkat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Lee A EAA 
J 


+ 
+ 


FACILITY: 
DSR (Digital Stamdard RUNOFF) /DSRPLUS DSRINDEX/INDEX Utility 


ABSTRACT: . 
Routines to permute index entries 


ENVIRONMENT: Transportable 
AUTHOR: JPK 

CREATION DATE: December 1981 
MODIFIED BY: 


004 JPK00024 23-May-1983 
Modi fied seuerees ine Sgorithe in PERMUTE. Now lowercase onty 
if word contains only 1 letter or if second letter in word i 
lowercase. Picked up modules PAGMRG and POOL from DSR/DSRPLUS 
since they are no longer used by DSR/DSRPLUS. 


003 JPKO0015 04-Feb-1983 
Cleaned up module names, modified revision history t 
conform with established standards. Updated copyr tent dates. 


002 JPKO0014 02-Feb-1983 2 é ; 
Modified PERMUTE to remove extra whitespace in index entries. 


EEE EEE ETE EE TT Oe 
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-- Permute index entries 


: Changed module name. 


(ee 

TABLE OF CONTENTS: 

FORWARD ROUTINE 
PERMUT : N 
MAKE_ENTRY : NOVALUE, 


FIX CASE =: NOVALUE, 
COPY_STR : NOVALUE; 


INCLUDE FILES: 


LIBRARY "NXPORT:XPORT'; 
SWITCHES LIST (REQUIRE); 
REQUIRE ‘REQ:NDXXPL'; 


iSoseoctgee 01:27:5 


AX=11 Bliss-32 V4.0 


Permute index entry 

Make a permuted index entry 

Fix up case of porautes entr ry 

Copy string from a to b and filter 
out the nopermute flag. 


Extended indexing attributes 


pore 


RUNOFF .SRCJPERMUTE. alte 1 
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-Sep-1984 22:53:35 -$255$DUA2 CRUNOFF . sre NDXXPL.REQ;1 (1) | 
> ROO82 1 ' : 
: A fh : Version: *v04-000' | : 
: ROO8S } PITIIIIIIILIL LLL LLL LLL LLL LLL LiL ili Liiiiiiiiiiiiiiiiiii titi : 
; ® '® « | s 
; kROOB7 1 'w COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * - 
: ROOBB 1 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . ; 
; si:34 ! is ALL RIGHTS RESERVED. * 3 
e . ® $ 
; ROOST 1 'e re fe irk is FURNISHED mete A LICENSE AND MAY BE USED AND corres * ; 
; Roees 1 '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH * : 
; ROOD 1 ie INCLUSION OF THE ABOVE eet NOTICE. THIS SOFTWARE OR ANY OTHER * : 
; ROO96 1 'w COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * $ 
; kROOSS 1 'w QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * . 
3 4947 : - TRANSFERRED. * 3 
3 ' * 3 
; kROO98 1 'e THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
; ROOD 1 't AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
; aids! : a CORPORATION. * : 
Ps : ® j Py 
; ROO 1 't DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * - 
: RO10 1 '® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * | : 
; RO1046 1 '® * $ 
: ROWS 1 ie * : 
4 Rote : ‘alana ici nici aa a iain tata é 
3; =6©RO1 3 
; kO108 1 3 
; kRO109 1 '4+ 3 
: ROIN0 FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS | ; 
: RO112 1 i ABSTRACT: : 
; RO11 1 i This file contains definitions of data structures used to support : 
3 weit : the extended indexing features of the DSRPLUS INDEX program. : 
; ROIIG 1 | ENVIRONMENT: Transportable BLISS 3 
: RO118 1 i AUTHOR: J.P. Kellerman : 
; RO119 1 i 3 
; kO120 1 i CREATION DATE: January 1982 : 
3 Rots 1 i 3 
; wie I MODIFIED BY: | : 
: ROI 34 1 i 002 KAD00002 Keith Dawson 07-Mar-1983 : 
+ RO125 1 i Global edit of all modules. Updated module names, idents, : 
; RO! ¢ a copyright dates. Changed require files to BLISS library. : 
: RO12B 1 ie : 
: RO129 1 3 
; sd : ! ! Extended INDEX attributes block. : 
> ROI ; 1 SFIELD XPL_FIELDS = | ; 
; =RO1 1 SET 3 
> ROWS 1 | ; 
3 id 5 ' XPL$V_OPTIONS = CSINTEGER], ' Attributes options : 
: ROW? 1 SOVERLAY (XPL$V_OPTIONS) | : 
; rO138 1 | 3 


DD 
lolelelelelelealo) 
a a a kk dt et 


XPL$V_VALID 
XPL$V~BOLD 
KPL$V"UNDERLINE 
L$V~BEGIN 
XPLEV END 
XPL$V~ RASTER 
XPL$V~PERMUTE 
xPLSV~ =NOPERMUTE 
XPLEV-A APPEND 


SCONTINUE 


XPL$T_SORT = PEpesre i pron (evwanicta- : 
= CSDESCRIPTOR(DYNAMIC) 


XPL$T_APPEND 
TES; 
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set © fe eh SemhUCMhC<C HhU(C(C hUCUhF 


TERAL 
XPLSK_LENGTH = SFIELD_SET_SIZE; 


RO 
XPLUS$V_VALID 
XPLUS$V_BOLD 
XPLUS$V_ “UNDERLINE 
XPLUS$V_BEGIN 


= 
vw 
rc 
Cc 
mn" 
<= 
Duo a 
-~ — = 
m 
=z 
nhHennnnnnnea 


XPLUS$V_APPEND 


End 


DWDONOULSWN—O 


Oooooo°o°c[eoo 
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MACRO 
$XPL_BLOCK = BLOCK CXPLSK_LENGTH)] FIELD (XPL_FIELDS) 2%; 


; Macros for INDEX_ATTRIBUTES flags 


Se a a ss a ws 


esses see ese 
Oooooo°c°o°oo 
PRL FL VL TL HL PL FL FL TL 


SS 2. 3 Fe ee 2S FS 
ere ee ee ee ee ee ee ee 


NDXXPL.REQ 


<v 


om 


: 


> 


: CRUNOFF . she NDOXXPL.REQ; * te 
Attributes aoe an valid information. 


ined ta reference. 
nN page range. 


Permute index 


Set if SORT str - 
Set if append str 


entr 
xplicitty, forbidden. 


attributes data is valid. 
page reference is bolded, 
page reference is underlined. 
ins a page range. 
S @ page range. 
master index entry = ey 
entry is to be permut 
permute is explicitly. 
entry contains a SOR Q. 
entry contains an APPEND string. 


oe hn ms hn hs es es es ets ts 
—- a? hh — ——O—— 


EN ee Sora Som erie HEREIN TEE DNR 


8 8186 REQUIRE ‘REQ:LETTER'; 


v04~000 
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! Version: *v04-000' 


PASS SE SISSIES TITS T TT TT TTT TTT Tere e cece Trcic iii citi citric iti citi tic iiiiit 


'® 
'* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
'® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 


'* ALL RIGHTS RESERVED. 


® 
® 
® 
* 
: ® 
is THIS SOFTWARE. IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
fs ONLY IN| ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER + 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY = 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. ® 
® 
fs THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
is SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
it CORPORATION. * 
® 
® 
® 
® 
tt 
® 


it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

‘® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

i eee eeeeeeeeeeeeeeeeeReeeeeeeeekeeeekeeeeeeeeeeeeeeerereeeeneeeeeeeeeeeeeeee 
' 

'e¢ 

| FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

i ABSTRACT: 

! Macros to test if a character is an 8 Behe! & wiauared letter, 
and macros to convert between upper and lower ca 
ENVIRONMENT: Transportable BLISS 
AUTHOR: Rich Friday 

CREATION DATE: 1978 

MODIFIED BY: 

002 —_ kAd00002 Keith Dawson 07-Mar-1983 
i] 
! 
' 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS (ibrary. 


MACRO 
upper_letter (kha ' See if ypper case letter 
(Khar GEQ %C' AND khar LBs zc'z' 
lower_letter (kha ee if lower case letter 


(Khar GEQ %C' AND khar “Le6 ac"2") 


VS35$$00A2 *TRONOFES she LETTER.REQ; = 


-—-OoD0oOno 
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-Sep-19 2:49 
letter (khar) See if any type of letter 
(upper_letter (khar) OR lower. eR (khar) 
ares (khar) 7 < - 
upper case = ! Convert to upper case 
er (Khar + XC'A* = %C'a') a 
lower_case (khar) = ! Convert to lower case 
(Khar + %C'a® = XC'A') 


! End of LETTER.REQ 


Pa 
: CRUNOF F she LETTER.REQ;1 


SRSESS SSS SSIS ess 
Oo Ouse OO 


Oo 


at SY SS ss SS SY YS 1 
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a kd od od 


-- Permute index entries 


SWITCHES LIST (NOREQUIRE); 
MACROS: 
EQUATED SYMBOLS: 


LITERAL 
TRUE = 1 
FALSE = 6; 


OWN STORAGE: 


EXTERNAL REFERENCES: 


EXTERNAL LITERAL 
TAB : UNSIGNED (8), 
RINTES : UNSIGNED (8); 


EXTERNAL 
XPLBLK : S$XPL_BLOCK; 


EXTERNAL ROUTINE 
XOUT : NOVALUE; 


AX-11 Bliss-32 V4.0-742 Page 
RUNOFF .SRCJPERMUTE.BLI;1 


' TAB character 
! RUNOFF escape sequence 


! Extended indexing attributes block 


! Insert index entry into internal pool 


own 
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UT == Permute Index Entry 12-88-1382 9h: 8F 2 ¢ 


ZSBTTL "PERMUT <= Permute Index Entry. 
GLOBAL ROUTINE PERMUT (ENTRY_LEN, ENTRY_PTR, XTN, BAR_FLAG) : NOVALUE = 


2 V4.0-742 Page 
RUNOFF .SRCJPERMUTE.BLI 


BLI;1 


v04~000 


4 


FUNCTIONAL DESCRIPTION: 
This routine is called to permute and output index entries 
FORMAL PARAMETERS: 


ENTRY_LEN 
ENTRY-PTR 


BAR_FLAG 
IMPLICIT INPUTS: 

XPLBLK - Extended indexing attributes block 
IMPLICIT OUTPUTS: 

None 


ROUTINE VALUE: 
COMPLETION CODES: 


None 
SIDE EFFECTS: 
None 


Number of characters in entry 
A CHSPTR to index entry 
Transaction number 

Change bar flag 


BEGIN 


CAL 
WHITE_SPACE, ' Length of string up to white space 
SOURCE _PTR ' Pointer to source strin 
PERMUTE_PTR, i Pointer to permuted tex 
PERMUTE_LEN, } ren of permuted text 
PERMUTE_STR : VECTOR CCHSALLOCATION (1200)J; ' Put permuted text here 


IF .ENTRY_LEN EQL 0 THEN RETURN; ! Nothing to do if no text 


1 
Initialization 
WHITE_SPACE = -1; 
SOURCE PTR = .ENTRY_PTR: 
PERMUTE_PTR = CHSPTR (PERMUTE_STR); 
PERMUTE-LEN = 0; 
IF XPLBLK CXPL$V_VALID] AND .XPLBLK CXPL$V_PERMUTE) 
BEGIN 
i Permute index entry 
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! Copy pointer to string 
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LOCAL 

ERMUTE_ FIRST ! TRUE if can permute on first word 

FIRST_CRAR_SEEN; ! TRUE after it character found 
PERMUTE_FIRST = TRUE; 
FIRST_CAAR_SEEN = FALSE; 
INCR I FROM 1 TO .ENTRY_LEN DO 

BEGIN 

LOCAL 

CH; ! Current character 


CH = CHSRCHAR_A (SOURCE_PTR); 
SELECTONE .CH OF 
SET 
CRINTES): 
BEGIN 
Process RUNOFF escape sequence 
CAL 
FUNCTION_CODE, 
OPERAND; 


FUNCTION_CODE = CHSRCHAR_A (SOURCE_PTR); 
DPERAND © CHSRCHAR_A (SOORCE_PTR); 


SeLEe TUNE ~FUNCTION_CODE OF 


> aw 
— 
z- 


word mark. For index entries this starts a 
subindex entry. Since subindex entries are not 
! permuted, copy subindex entries and exit. 


COPY_STR (3 + .ENTRY_LEN - .I, 
THSPLUS (.SOURCE~PTR, -3). 
PERMUTE_LEN, PERMUTE_PTR); 


EXITLOOP; 
END; 


CXc'P'): 
Nopermute flag. 


f we haven't seen the first character yet, se 


I 
i flag saying that we can't permute on the first 


‘p* 
' 
i 
i 
t 
word. 
' 


Remove escape sequence by doing nothing. 


<v 


om 


RUNOFF ..SRCJPERMUTE.BLI;1 
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yo -008 PERMUT == Permute Index Entry 19-88-1382 94:85:28 RUNOFF .SRCIPER 


a blank in the output string. 


WHITE_SPACE = .PERMUTE_LEN; | 
CHSWCRAR_A (ZC* ', PERMUTE PTR); 
PERMUTE CEN = .PERMUTE_LEN™+ 1; 


END; 
COTHERWISE): 
BEGIN 


; 0 97 ! 3 
; ; Re ; iF NOT .FIRST_CHAR_SEEN THEN PERMUTE_FIRST = FALSE; | ; 
: 400 COTHERWISE) ; 
3H sa) srcih eal 
: $ 208 6 i Other RUNOFF escape sequences signal a new word : 
: 404 6 ! if white space was seen. In this case, It's time $ 
3 8 405 6 ' to make a permuted entry. Once the entry has been 3 
: 9 Bree 6 ! made (or if it's not necessary), the escape : 
: re B08 ? ; sequence is copied to the permuted text string. : 
> 26 409 6 ; 
: 2 Bei9 ° it ah aia GEQ 0 : 
> 265 0412 6 MAKE_ENTRY (3 + .ENTRY_LEN = .J, : 
; 246 $418 6 CHSPLUS (.SOURCE_PTR, -3), : 
: 247 0414 6 -WHITE_SPACE, CHSPTR (PERMUTE_STR), : 
: rt Belz ? -XTN, .BAR_FLAG); : 
: 250 0417 6 CHSWCHAR_A (.CH, PERMUTE_PTR); : 
: 251 0418 6 CHSWCHAR-A (.FUNCTION_COBE, PERMUTE_PTR); 

; 26 0419 6 CHSWCHAR_A (.OPERAND, PERMUTE_PTR); 

2 0420 6 PERMUTE_CEN = .PERMUTE_LEN + 3; 

: 54 0421 5 ND; 

: $82 o495 8 Tes 

: 257 0424 § : 

: $26 Be 2 ? + alia = -1; ! Blank or tab not seen 

; $26 $459 4 : 

2 Mes at ek 

> 26 0430 5 

3: 264 0431 5 ' Blank or TAB. 

: 265 aR 5 ! Remove extra whitespace by inserting a blank for 

: 367 ot : only the first one seen. 

; 268 0435 § iF .WHITE_SPACE EQL -1 

: $3 re 3 THEN GIN 

> 271 0438 6 

s ale 0439 ? ' No blanks or tabs seen yet. Save position and insert 

; f 

: 6 

; 6 

é 

: ‘ 

s 4 

: 4 

: 

; 5 


; Process normal character 
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08 
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PERMUT == Permute Index Entry 1 730071382 93:85:28 RUNOFF ..SRCJPERMUTE.BLI;1 
454 FIRST_CHAR_SEEN = TRUE; 
138 CHSWCRAR_AW(.CH, PERMUTE PTR); 
is? PERMUTE_CEN = .PERMUTE_LEN + 1; 
458 IF .WHITE_SPACE GEQ 0 
$23 THEN | 
461 ! White space was seen before this character. Hence we 
pres 2 are starting a new word and it is time to permute. 
0464 5 MAKE_ENTRY (.ENTRY_LEN = .] + 1, 
466 CHSPTR (PERMUTE_STR), .XTN, .BAR_FLAG); 
0468 WHITE_SPACE = =1; ! Blank or tab not seen 
0469 4 END; 
0470 4 
0471 4 TES; 
borg 4 
047 ; END; 
0474 
0475 : IF .PERMUTE_FIRST 
0476 THEN 
0477 & BEGIN 
0478 4 FIX_CASE (.PERMUTE_LEN, CHSPTR (PERMUTE STR), 0, 0); 
0479 4 XOUT (.PERMUTE_LEN> CHSPTR (PERMUTE_STRY, .XTN, .BAR_FLAG); 
0480 ; END; 
0481 END 
pans ELSE 
048 BEGIN 
0484 : 
0485 ! Do not permute index entry. 
0486 ! Copy it filtering out nopermute flags, insert it in the internal 
ok 14 } pool and return. 
0489 COPY_STR (.ENTRY_LEN, .ENTRY_PTR, PERMUTE_LEN, PERMUTE PTR); 
0490 XOUT"(.PERMUTE_LEN, CHSPTR (PERMUTE_STR),~.XTN, .BAR_FLAG); 
0491 § END; 
049 
049 1 END; 
-TITLE PERMUTE PERMUTE -- Permute index entries 
-IDENT \V04-000\ 
eEXTRN TAB, RINTES, XPLBLK 
EXTRN xOUT 
-PSECT S$CODES$,NOWRT,2 
OFFC 00000 ~ENTRY peanut. Save R2,R3,R4,R5,R6,R7,R8,R9,R10,— 
28 sean 4 EF 9€ 000 MOVAB COPY_STR, R11 
E FB48 «=6CE C9 0 MOVAB -1208(SPS, SP 
5 04 AC : MOVL NTRY_LEN, R5 
01 001 BNEQ $ 
04 0001 
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D 
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1 
f 
9 
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p 
#1, WHITE_SPACE 
ENTRY_PTR- SOURCE PTR 
PERMUTE_STR, PERMOTE_PTR 
PERMUTE_LEN 

XPLBLK, 

#6, XPLBLK, 2$ 

#1, PERMUTE_FIRST 
FIRST_CHAR_SEEN 

I 

13$ 

(SOURCE _PTR)+, CH 

ch. #RINTES 

(SOURCE_PTR)+, FUNCTION_CODE 
(SOURCE-PTR)+, OPERAND 
FUNCTION. CODE, #74 


SP 
PERMUTE LEN 
-3(SOURTE_PTR) 

° COPY_STR 
FUNCTION. CODE. #80 


FIRST_CHAR_SEEN, 8$ 
PERMUTE_FIRST 


$ 
WHITE _SPACE 
7$ 
XTN, =(SP) 
PERMUTE_STR 
WHITE SPACE 
7><SQORCE PTR) 
R5, R 
#6, MAKE ENTRY 
CH, @PERMUTE_PTR 
MUTE_PTR 
FUNCTION CODE, @PERMUTE_PTR 
OPERAND; @PERMUTE_PTR 
PERMUTE PTR 
nS, PERMUTE_LEN 
cH #32 
cH #TAB 
WHITESPACE, #1 
ppanure LEN, WHITE_SPACE 


2, @PERMUTE_PTR 
PERMUTE_PTR 


uno 
mcm 
DZD 


PORES Se Se Se Se Se Se Se SESE SE Se Se SH SH Se ee Be Be Oe Oe Oe Be SH Oe Se Be Oe Be Se Se Se Se Be Se Se Se Se Be Se Be Be Be Be Be Be Be Be Be Be Be Be Se Be 
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peanuts PERMUTE == Permute index entries 18-Sep-1984 94:42:33 AX-11 Bliss-32 V4.0-742 Page 14 
v04- PERMUT == Permute Index Entry 14-Sep-1984 13:07:46 RUNOFF .SRCJPERMUTE.BLI;1 (2) 
046 AE D 09 INCL PERMUTE_LEN 3 0444 
D of nye BRB Ss < : 0356 
58 | p0 DF 11$: MOVL #1, FIRST_CHAR_SEEN + 0454 
00 BE E MOVB CH, @PERMOTE_PTR + 0455 
6— D ES INCL § PERMUTE_PTR : 
06 AE OD E INCL  PERMUTE“LEN + 045 
54 D EA TSTL WHIT SPACE + 045 
1A 1 EC BLSS 12 : 
7E OC AC 7D OOOE MOV TN, =(SP) + 0466 
10 AE 9F OOOF PUSHAB PERMUTE STR : 
54 bd OOF PUSHL ITE_SPACE + 0465 
FF Ag F OOF PUSHAB 71 (SOORC _PTR) : 
50 55 5 3 FA UBL3 R5, R + 0464 
01 AO 9F OOOFE PUSHAB 1(RO) : 
00000000v EF 06 FB O191 CALLS #6, MAKE_ENTRY + 0465 
FFE 56 i Ol FF Ooids 1s; Meee OSS Mie ieee’ 3308 
pe Se Sanid Bag Seagyress Inst. 7s 8 
10 AE 9F 00116 PUSHAB PERMUTE_STR : 
10 AE DD 00119 PUSHL PERMUTE-LEN : 
00000000v_ EF 04 Fe 011 CALLS #4, FIX~CASE : 
ee: ee  ota9 
08 AE OF 901 7 PUSHAB PERMUTE_LEN : 
08 8S BB O0130 oe fees 
68 04 FB 0012F CALLS #4, COPY_STR : 
7E Oc AC 7D 00132 168: MOVQ XTN, =(SP) : 0490 
10 AE 9F 00136 PUSHAB PERMUTE_STR : 
10 AE DD 00139 PUSHL PERMUTE~LEN : 
000000006 EF 04 FB 0015¢ se CALLS #4, XOUT ome 


; Routine Size: 324 bytes, Routine Base: $CODE$ + 0000 


ene a Ee ) 
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voe008 MAKE_ENTRY == Make a permuted entry 1e=86= 1382 93:65:26 RUNOFF .SRCJPERMUTE.BLI;1 . 33 

; 8 0494 1 XSBITL "MAKE_ENTRY == Make a permuted entry’ : 
; ; 132 : ROUTINE MAKE ENTRY (SOURCE_LEN, SOURCE_PTR, PERMUTED_LEN, PERMUTED_PTR, XTN, BAR_FLAG) : NOVALUE = | : 
; 1 0497 1! | ; 
: ¢ Be88 ! FUNCTIONAL DESCRIPTION: : 
3 ¢ Bene i } This routine makes a permuted index entry. : 
: 6 030¢ 1! It copies from the string described by SOURCE_LEN and SOURCE_PTR : 
: 7 0505 1! until either a subindex entry or end of string is encountered. : 
; 8 504 1! At this point, it appends a comma and a blank and then copies : 
: 9 505 1! from the permuted string described by PERMUTED_LEN and PERMUTED_PTR. : 
; 340 an8 1! If the break was caused by a subindex entry, the subindex entry ; 
3 me t4'h4 : is then copied. ; 
; 38 Fa : Once the permuted text has been built, it is written out. : 
: $2 0511 1 ! FORMAL PARAMETERS: : 
; 346 8216 1! : 
; 347 0513 1! SOURCE_LEN - Length of unpermuted portion of index entry 3 
: $08 0514 1! SOURCE _PTR - CHSPTR to unpermuted portion of index entry : 
; 349 0515 1! PERMUTED_LEN - Length of permuted portion of index entry 3 
; 350 0516 1! PERMUTED_PTR - CHSPTR to permuted portion of index entry ; 
: 351 0517 1! XTN - Transaction number 3 
; $26 0518 1! BAR_FLAG - Change bar flag : 
3 $2 0519 1! 3 
: 354 Bese 1 ! IMPLICIT INPUTS: 3 
: oe 0521 1! 3 
3° 328 05 1! None 3 
t Sor 05 1! 5 
; 358 0524 1 ! IMPLICIT OUTPUTS: ; 
3; 359 0525 1! 3 
: 360 0526 1! None A 
3 $0) b2se 1! 3 
3 $¢ 0528 1 ! ROUTINE VALUE: ; 
; 0529 1 ! COMPLETION CODES: : 
; 364 0530 1! 3 
: 365 0531 1! None 3 
; 366 b2a§ 1! : 
: 67 0533 1 ! SIDE EFFECTS: : 
; 368 0534 1! : 
; 369 0535 1! None 3 
; 370 0536 1 !-- 3 
3: 371 23f 1 : 
, of 538 BEGIN 3 
3 7 539 3 
: 374 0540 LOCAL ; : 
3 S73 541 WHITE_SPACE, ' To delete Ves Da white space : 
; 376 p28 PTR ' Copy of SOURCE_PT 3 
: 377 054 LINE : VECTOR CCHSALLOCATION (1200)], | Build permuted string here : 
; 378 0544 L_PTR, ! CHSPTR into LINE | F 
; 379 545 L_LEN; ! Length of string in LINE 3 
:; 380 54 : 
3 Sal 54 ! 3 
3 a6 298 ! Initialization 3 
. we 54 ! : 
; 384 550 WHITE_SPACE = -1; 3 


] 
7 
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VOen O00 MAKE_ENTRY == Make a permuted entry 1o-ge= 1382 93:85:28 RUNOFF .SRCJPERMUTE .BLI 1 . Rid 
H 5 1 PTR = .SOURCE_PTR; | 3 
; $ é L_PTR = CHSPTR (LINE); ; 
; i ? L_LEN = 0; : 
; 389 55 INCR_ 1 FROM 1 TO .SOURCE_LEN DO $ 
3 $s $3) BEGIN : 
: 39 558 LOCAL | : 
; B22 CH; ! Current character 3 
> 394 0560 : 
; 395 561 CH = CHSRCHAR_A (PTR); : 
i $96 56¢ | 
; 56 SELECTONE .CH OF 3 
; 398 564 SET ; 
3; Sy 0565 : 
; 400 0566 CRINTES): ; 
; 401 0567 4 BEGIN 3 
; 40 0568 4 : $ 
; 40 0569 4 ' RUNOFF escape sequence ; 
3 404 0570 4 i | ; 
; 405 0571 4 CAL : 
> 406 B26 4 FUNCTION_CODE, $ 
; 407 0573 4 OPERAND; 3 
; 408 0574 4 3 
; 409 0575 4 FUNCTION_CODE = CHSRCHAR_A (PTR); : 
; 410 0576 4 OPERAND = CHS$RCHAR_A (PTR); | 
> 411 0577 4 =. a3 
; tig 0578 4 
3; «41 0579 4 SELECTONE .FUNCTION_CODE OF 
; 6414 0580 4 SET | 
> «415 0581 4 
: 416 bees 4 Cxc'v'] : 
: 417 0583 5 BEGIN 
: 418 0584 5 : ais 
: 419 0585 5 ! Subindex flag. Delete trailing white space, 
; 420 0586 5 ! and append comma, blank 
: 421 0587 5 ! 
; ri 0588 5 IF .WHITE_SPACE NEQ -1 
: 42 0589 5 THEN 
> 424 0590 6 BEGIN 
: 425 0591 6 L_PTR = CHSPLUS (.L_PTR, (.WHITE_SPACE - .L_LEN)); 
3 ‘58 0338 6 L-LEN = .WHITE_SPACE; 
: 427 0593 5 END; 
; 4 8 b28¢ 
; 4 595 CHSWCHAR_A (%C',*, L_PTR); 
> 430 0596 CHSWCHAR_A (%C° *, L7PTR); 
: 431 0597 5 L_LEN = <L_LEN + 2; 
: 4 ; 8298 5 
3 45 599 ' 
: 434 0600 ' Raise case of first letter in permuted entry and 
; ? 5 be8) : drop case of original first letter if necessary. 
3; 437 ig FIX_CASE (.L_LEN, CHSPTR (LINE), .PERMUTED_LEN, .PERMUTED_PTR); 
i 23 805 | 
; 440 6 ' Finally, append permuted text to end of Line, 
3; 6441 60 ! append the subindex entry and output. 
| 


F 
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yoe-008 MAKE_ENTRY == Make a permuted entry 1o-808=1 382 93:65:28 RUNOFF ..SRCJPERMUTE.BLI;1 . 3} | 
} 

> 44 608 ' 

; 44 O08 COPY_STR (,PERMUTED_LEN, .PERMUTED PTR, L_LEN, L PTR); | 

: 444 61 COPY-STR (3 + .SOURTE LEN = .1, CHSPLUS ([PTR. -3), L{LEN, L_PTR); | 

3 445 611 XOUT"(.L_LEN, CHSPTR CLINE), .XTN, .BAR_FLAG); | 

: 44 ol¢ RETURN; | 

> 44 613 4 ND; 

; 448 614 4 

: 449 615 4 Cxc'P"): | 

: 450 $18 4 ' 

; 451 617 4 ! Filter out nopermute flags by doing nothing 

; t2g B918 4 ! 

> 45 be! 4 : 

> 454 620 4 

> «6455 0621 4 COTHERWISE) : 

; 456 06 5 BEGIN 

; 457 06 5 ! 

3 rt 89 : é Other RUNOFF escape sequences are just copied 

; 460 0626 5 CHSWCHAR_A (.CH, L_PTR); 

: 461 06e7 5 CHSWCHAR-A (.FUNCTION_CODE, L_PTR); 

; 46 0628 5 CHSWCHAR_A (.OPERAND, L_PTR); 

; 46 Bees 5 L_LEN = .L_LEN + 3; 

> 464 0630 4 END; 

; 465 0631 4 

; 466 Boas 4 TES; 

; 467 0633 4 

; 468 0634 4 WHITE_SPACE = -1; 

: 469 0635 3 END; 

; 470 0636 3 

3: 471 0637 3 (xc* *, TAB): 

: 472 0638 4 BEGIN 

: 473 0639 4 ! 

: 476 0640 4 ' Blank or TAB. 

3; 475 0641 4 ' Remove extra whitespace by inserting a blank for 

; 476 0642 4 ! only the first one seen. 

: 477 06 4 ! 

: 478 0644 4 IF .WHITE_SPACE EQL -1 | 

: 479 0645 4 THE 

; 480 0646 5 BEGIN | 

; 481 0647 5 : : ; 

; 482 0648 5 ! No blanks or tabs seen yet. Save position and insert a 

: 483 0649 5 ' blank in the output string. 

> 486 0650 5 : 

; rH bees WHITE SPACE = .L LEN; 

; 4 63¢ CHSWCRAR_A (%C' *. L_PTR); 

> 487 065 L_LEN = TL_LEN + f; | 

; 488 0654 4 : 

: 489 655 4 | 

3 rh 236 ; END; 

: 49 658 COTHERWISE): | 

3; 49 59 4 BEGIN 

7 494 60 4 ’ 

> 495 661 4 ! A normal character 

: 4 reg) 4 : | 

: (49 Ree 4 WHITE SPACE = -1; 

; 498 664 4 CHSWCRAR_A (.CH, L_PTR); 


=v 
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wbO8 MAKE_ENTRY == Make a permuted entry Ha aet 1 93:85:28 RUNOFF SRE SPEAMUTE Bi Tet et 3 
499 665 4 L_LEN = .L_LEN + 1; 

o} END; ~ 

668 

08 26? 

04 670 

05 671 

RR 

28 eo ' d bl 

' append comma, 

03 SE g geese anes: 

11 O87? THEN “ 

218 be79 bein CHSPLUS (.L_PTR, (.WHITE_SPACE L_LEN)) 

= © . . = . Py 

514 0680 L7LEN = .WHITE_SPACE; - ” 

515 0681 END; 

516 ee 

517 068 CHSWCHAR_A (%C',", L_PTR); 

518 0684 CHSWCHAR_A (2C° ', L-PTR); 

519 0685 _LEN = TL_LEN + 2; 

520 0686 

es} 0687 ! 

5 ¢ 0688 ! Raise case of first letter in permuted entry and 

$7 9994 drop case of original first letter if necessary. 

325 0691 FIX_CASE (.L_LEN, CHSPTR (LINE), .PERMUTED_LEN, .PERMUTED_PTR); 
527 069 ! 

258 Bede } Finally, append permuted text to end of Line and output. 
2$3 0696 COPY_STR (.PERMUTED LEN, .PERMUTED_PTR, L_LEN, L_PTR); 

331 0697 xOuT (,L_LEN, CHSPTR (LINE), .XTN,~.BAR_FCAG); 


O0OFC 00000 semen nian” 


ORD Save R2,R3,R4,R5,R6,R7 : 0495 
57 00000000v EF 9E 0000 MOVAB COPY_STR, R7 ; 
56 00000000 EF 9E 0000 MOVAB FIX CASE. R6 : 
; FB4C cE 9E 019 MOVAB -1204(SP5, SP : 
cE 1 MNEGL #1, WHITE SPACE : 0550 
5 08 AC p 0 O18 OVL  SOURCE_PTR, PTR : 0551 
04 AE 9F 0001C PUSHAB LI : 055 
04 AE 04 OOOTF CLRL ~—L_LEN > 055 
54 D4 00022 CLRL > 055 
00c3 31 0 4 BRW 0$ : 
50 : A 0 7 1$ MOVZBL (PTR)+, CH : 0561 
000000006 &F D1 OOO2A CMPL CH, #RINTES : 0566 
13 1 BEQL 2$ : 
00 3 3 BRW 6$ : 
5] ; A 6 2$ MOVZBL (PTR)+, FUNCTION CODE : 0575 
5 9A 0 yi te (PTR)+, OPERAND : 0576 
54 2 ¢O 0003c¢ ADDL2 #2, | : 0577 


] 
| 
| 
66 | 
66 
TES; 
END; 
' 
! End of input epring reached. Delete trailing white space, 
n 
1 


0000004A 
FRFFFFFF 


00 
00 
04 


50 


50 04 


00000050 
00 
00 
00 
04 


000000006 
FFFFFFFF 


00 
00 


4 
FFFFFFFF 
50 
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NCTION_CODE, #74 
HITE SPACE, #1 
L_LEN, WHITE_SPACE, RO 
RO baPrR 
WHITE“SPACE, L_LEN 
Hab PTR 


L 
#32, al_PTR 
PfR 


#2, L_LEN 
PERMUTED_LEN, =(SP) 
LINE 


LLLEN 
4%, FIX_CASE 
SP 


( 
(RO) 


12$ 
FUNCTION_CODE, #80 


CH, @L_PTR 


FONCTION_CODE, @L_PTR 
OPERAND, @L_PTR 
L_PTR 


#3, L_LEN 
#1, WAITE_SPACE 
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7$ 
CH, #TAB 
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430, aL_PTR ~ 


#1, WHITE SPACE 
CH, @L_PTR 


L 
L_PTR ~ 


L-LEN 
SOURCE_LEN, #1, I, 1$ 
HITE _SPACE, # 


L_LEN, WHITE_SPACE, RO 
L“PTR 
WHITE"SPACE, L_LEN 


#44, GL_PTR 


L_LEN 
PERMUTED_LEN, -(SP) 
#4, COPY_STR 


PTR) 
SOURCE _LEN, RO 
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ermute index entries 18-Sep-1984 94:62:33 
Fix up case of permuted entry 14-Sep-1984 13:07:46 
TL_"FIX_CASE == Fix up case of permuted query. 

INE FIX_CASE (B_LEN, B_PTR, P_LEN, P_PTR) : NOVALUE = 


-P 


SBT 
OUT 
++ 
FUNCTIONAL DESCRIPTION: 
This routine is called to fix up the case of the permuted index 
entry. The case of the first character of the new entry is raised. 
The case of the first character of the permuted text is lowered 
if there are any lower case characters in the first word of the 
permuted text. 
FORMAL PARAMETERS: 
LEN = Length of string which begins new entry 
Pointer to string which begins new entry 
P_LEN = Length of permuted string 
P_PTR = Pointer to permuted string 
IMPLICIT INPUTS: 
None 
IMPLICIT OUTPUTS: 
None 


ROUTINE VALUE: 
COMPLETION CODES: 


None 
SIDE EFFECTS: 


‘ 
wv 
part 
@D 

a 


Raise case of new first character if necessary 


PTR = .B_PTR; 
LEN = .B_LEN; 


INCR I FROM 1 TO .LEN LO 
BEGIN 
Ln, 


CH = CHSRCHAR (.PTR); 


AX=-11 Bliss-32 V4.0-742 
RUNOFF ..SRCJPERMUTE .BLI;1 


33 


PO 
bs) - Liss-32 V4.0-742 Page 22 vol 
16-Sep-1984 01:27:55 Ax-11 B 5° a (fs 
VOen O00 Sih LA oe Pin unt sone at aoraninl antes 1ergee=t88e 93:85528 | HANNA OSA Spe emMitE can | : 
VO4- - ) 
IF .CH EQL RINTES 7 
: 83) reo 3 thet : 
: 38 7 3 4 BEGIN : 
; 3¢ 16 ¢ i RUNOFF escape sequence - skip rest of sequence 
; 71 4 i : 
: AR_A (PTR); ; 
eo Oh paris a (er : 
é 38 Orb 4 CHSRCHAR-A (PTR); 3 
: 600 165 4 Ls 1 472; : 
Bm. FE we : 
$08 +9 d Have first character in string : 
3 | 
; gos arr ¢ iF LOWER_LETTER (.CH) 
2 ee Heh : 
; rat pre ¢ i Character is a lowercase letter = convert to upper case 
: 10 ! : 
ei o776 ¢ CHSWCHAR (UPPER_CASE (.CH), .PTR); 
; i$ i EXITLOOP; ; 
: Sis 780 END. : 
; ei 4} END; 2 
3 $61 2 
: gis Ores i If there's no permuted text then just return 
; ) O7ee ir -P_LEN EQL 0 THEN RETURN; : 
: 6 078 : 
: 3 5 o785 i Find first character in permuted text 2 
635 bo54 FIRST_PTR = .P_PTR; 
; rey O788 com Tom -P_LEN TO 1 DO : 
+ 629 : 
El OS 8 iene amen Sole pien : 
$3 $798 IF .FIRST_CH EQL RINTES : 
: Ot $00 THEN EGIN : 
o38 802 t RUNOFF escape sequence - skip it : 
am : 3 
: $3 BOL 1 A (FIRST_PTR); 
: 8m 4 5 t SOE RCHARTA (FIRST_PTR); 
: ene 5 4 CHSRCHAR_A (FIRST_PTR); ; 
; BO? 4 lef -72 : 
; ga 08 4 euseeN 2 
: or: % i BEGIN 
; ers HE 4 i Have pointer to first character. 
3; 664 12 4 ! 


a 


; Lower case letter - note it and exit loop 


LOWER = TRUE: 
EXITLOOP; 
END: 


LEAF 


coo 
oon 
Ooo 


7 
PERMUT PERMUTE == Permute index entries ibese -1984 01:27:55 AX-11 Bliss-32 V4.0-74 PO 
VOe~ 000 FIX_CASE == Fix up case of permuted entry 1228681382 93:65:28 RUNOFF SREIPERMUTE BL I oI te B vO 
: ons iF : } Set length of remainder of string and exit. 
: 650 15 4 LEN = .1 = 1; 
3 63) 1 4 EXITLOOP; 
3 6 ¢ 081 END; 
: oe 1 END; 
: ee : 
: 65 821 IF UPPER_LETTER (.FIRST_CH) 
3 $29 88 ¢ THEN = a 
: $28 o8 ? BEGIN 
: 660 H 5 i Lower case of first character in permuted text if the 
; $83 os § second letter in the word is lowercase. 
; bes 08 8 PTR = CHSPLUS (.FIRST_PTR, 1); 
$9? pees LOWER = FALSE; ! No lower case characters seen 
3; 667 ttt) INCR I FROM 1 TO .LEN DO 
: 668 0833 4 BEGIN 
: 669 0834 4 LOCAL 
: 670 0835 4 CH; 
3; 671 0836 4 
; 67 0837 4 CH = CHSRCHAR_A (PTR); 
: re et 4 SELECTONE TRUE OF 
> 675 0840 4 SET 
: BFS ee C.CH EQL RINTES) | ee 
> 67 $Be§ 6 * BEGIN 
: oO Spas 2 i RUNOF F ki f 
: OR Oe, 8 escape sequence - skip rest of sequence 
; 682 0847 5 CHSRCHAR_A (PTR); 
; 6 0848 5 CHSRCHAR-A (PTR): 
3: 684 0849 5 I= .] + 2; 
; 685 0850 4 END; 
: gee bB32 é C(.CH EQL %C* *) OR (.CH EQL TAB)) 
> 688 bBe3 5 * BEGIN , : 
; 689 0854 2 ! 
; 690 0855 ! Whitespace - end of word 
: $3) pe28 : Leave case alone. | 
: 69 858 5 EXITLOOP; 
> 694 Ne END; | 
; $3 e844 Q CLOWER_LETTER (.CH)] 
; $35 B6¢ BEGIN wiper: 
; 698 30 ! 
: 4 | 
s 4 
| 
| 


M _ 
E == Permute index entries Sep-1984 AX-11 Bliss-32 V4.0-74 ® 4 
SE == Fix up case of permuted entry 1228 Sep ats of $5528 RUNOFF ..SRC PERMUTE BL tet att Fi 
CUPPER_LETTER (.CH)J: 


i Second letter is upper case. Terminate scan but don't 
lower case of first letter. 


EXITLOOP; 
COTHERWISE): 
; Some other character - ignore it 


vot-bod 


705 


=z 
oc 


>a 
S38 


TES; 
END; 
fr tee THEN CHSWCHAR (LOWER_CASE (.FIRST_CH), .FIRST_PTR); 


Sete ee Ce Ge Se Ge Sete Se ee Ge Ge Ge ee Ge ee ee Bee ee 

Sp Si Sin Si Sin Sn i i i i i ee 
isa dundee aoe 
VIFSUN —ODONOUSWN—OOW 
OODWOOWOWDOOWDONNNNNNNNNS KD 
SOOONA MEU "QO OONOUSWN—O 1 


O7FC 00000 FIX_CASE: 


~ WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10 ; 0700 
SA 006 8F 9A 00002 MOVZBL M#RINTES, R10 - : 
51 08 AC DO 00006 MOVL  8B-_PTR, brR + 0746 
53 04 Ac dO S000, MOVL § BILEN, LEN + 0747 
38 D4 O00E CLRL : 0749 
28 11 0001 BRB $ ; 
50 61 9A Beoig 1$: MOVZBL (PTR), CH 3; 0754 
SA 50 D1 0001 CMPL CH, R10 : 0756 
08 12 00018 BNEG $ : 
51 03 CO OO01A ADDL2 #3, PTR + 0764 
52 02 CO 00010 ADDL2 #2. I : 0765 
18 11 000 BRB : 0756 
00000061 = 8F 20 D1 00022 2s: CMPL CH, #97 : 0772 
13 19 000 BLSS ; 
0000007A_ = 8F 50 D1 000 8 CMPL CH, #122 ; 
OA 14 900 BGTR 4 F 
61 50 0 85 0 4 SUBB3 #32, CH, (PTR) : 0777 
4 11 8 BRB 43 : 0768 
D4 52 3 F3 OOO3A 3S: AOBLEQ LEN, I, 1$ : O79 
Oc AC 05 0003E 4$: TSTL. P_LEN : 0786 
01 1 41 BNEQ }46=s SS. ; 
04 00043 RET : 
52 10 AC 00 44 5$: MOVL p hi ss A a PTR ; 0791 
50 0c AC o1 C1 048 ADDL3 #T, 17 : 0793 
11 0004D BRB ; 
57 9A OO04F 6S: MOVZBL ef rast PTR), FIRST_CH > 0796 
A D1 ; CMPL F RST_CH, R10 ; 0798 
C6 ADDL2 #3, FIRST_PTR : 08 
38 3 005A SUBLO 0 #2. I : Oboe 


AX-11 Bliss-32 V4.0-742 


or188e $h:85:2a EAN eSReSpERMUtE BC tt 


N 7 
rae 


1 
1 


FIX_CASE == Fix up case of permuted entry 


PERMUTE == Permute index entries 


wo 
-oO 
DO 
=i 
4 
a> 


eh he aom KEN DOO - ono 
Orn umm M« Se aA) al >") oor 
%cOCcOrR. 00 mann wd 00.0000 00 oO oOc000 
ooo°o°o ooo oo GCoOOoo o ooo 
Sete Fe Fe Fe Fe Fe FS HS FS FS FS FS HS FS FS FR HS FS FS FS HS HS FES HS HS HS HS HS HS HS HS HS HS HS HS HS HS HS FS SS ES FS SS HS STS SES SESE HEHE FR HEHEHE HE He 
w So 
oO o 
2 xa a 
uJ < = 
ad 6 7 a wow a 
— = a. @ N w 
. _=) =) o> « ™N <= ~ ~N za w Oo 
~ 7 f . -__—_— -— ~m -_ o=- oa _- Coo, oO Oo oa ao 
o Ae - “a az as oi Ps ar ft a ecaz = 7 carr 
=< wow nn Nw < 
~ acne ge gs Ae Ws A aA + A aA A 7-2 A ww A bead 7+ A 
A—A 0 &— ~O KO EMR MN TITMNO BMNOMONMM TOMO TR. OMOOCDK— MUM TANOBTOOMCOOrw 
Dimer we RK Yew Ve RANE Ve SOV RK SSN Ve SCV See BVEVe SevuVvaecaacnw 
a i 
2 - @ @ om N IN om 
ougd 489 42s NIGH 3JIGOIIICG YIKES UE IO Pp ettet 7 eater tere | 
@OrFO@od wr Ow See Orawoo@ToawVvoawovedtmanv@ar-VOVOw>rOecanvgarvovid 
GOocotOws 1w0 j1IjfOF 2004 JSF S]2 IHF SSF ws IS EO 2204 YE SZ EEO ZO Es 
DBEOVVOSVOSC ZV OZ VOL COVV OVO“ OMVOVVO—VVO$EOVCMEOCVO—-VCoO—-EZOvrWD 
ee ee ical A aa ff A Aad we cas PA ad aa 
ff AA Oo - N La] w wn oOo ~ te} o oO 
~ woo - - - - - - - - - - N 
OE MND es — NO DVO OO VOW TF ODN MOU Od VU Ns OO MM COW SR OUWORO MOT COOW— 
WNODOOO-P-P-P-F- DODDODDDOOCOOOOO Se eee CL OMDOOMDOVVVVV COCO OWWWWWe eeu O 


SOOOSCOOOOSOOSOSOSOOSOSOSSOOSOSOSOSOSOSSOOOSOSSOOSOSOSSOSSOOSSSOSSOSOSOSOSSSSOSoOSOO— 
SOOCOQOCOOCOOOOOOOOOCOOSOSOOSOOSOOSOOSOSOSOSOSSOSSOOSOSSSSSOSOSSSOSOSOSSOSOSOSOSOOSOSSOS 
COOOOOGOOOOOCSOOOS OOOO SOSOSOSOSSOSSSSSSSOSSOSSOSOSSSSSOSSOSOSOSOSOOOOOOOOOoOO 


PWN OST RNS WITT EE OOO HM IT RK VOT KH NOOR MT OOS RK TONE RK NOR STK OO RK TONE ™ 
H—Ooru O- OO OC OBR OOK VU OO OOO COVA OBO BOO BOV AK OOO - BOO OO Oa 


COMO — BK NOOO TOUNVOANT UNO TUOMAS UNO TUONO OM ONT UMNO T UOMO OO 
SOMO MNO AMWNE. DNOOOCOMNMOMMNNOWMMAAINAA OMAN OUND O OMIMNNOWMNANOUUINO 


“u _ 
“ Oo 
m ew re - wait -/O Oo ve on “ “ oc-—- @& oe oo 
mm wo [.«] wm nM ww ~N [- e] mo co oO MWnNo w eo co Wine 
Oo 

- <x [=] - < - ft 

w wv Oo oO ~ w wo 

Oo Oo So oS Oo So o 

o So o oS So So oS 

So So o So i=) oS oS 

o o o oS oS So =] 

o o o oS So So So 

Oo Oo o o oOo So So 


PERMUT 


vo4~006 


-- Permute index gntries 
FIX_CASE == Fix up case of permuted entry 


af ee toed) T 


SCODES + 0285 


23$ 


; Routine Size: 273 bytes, Routine Base: 


b- 8 
Sep- 
~8ep 
1$: 
Ate 


“1 AX=11 Bliss-32 V4.0-742 
- 38 94: 65:28 RUNOFF. SRC PERM UTé.BLIs1 
ACBL «LEN, , 128 
BLBC LOWER 
ADDBS #32, it CH, (FIRST_PTR) 


$3 


—~ 
~ 


NNNNANANNNNNN 
OONANEWN—OO0OM 

3© 000000000000 Co co G0G0 

SSOSOSSOOGO 000000000 


SN NS 


47 
48 
49 
50 
3 
58 
54 
55 
56 
57 
58 
59 
60 
‘ 


> 
o 
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PERMUTE == Permute index entries 1b-5e 1984 01:27:55 AX-11 Bliss-32 V4.0-742 
COPY_STR == Copy string source to destination 1 =300 71382 94:55:28 RUNOFF ..SRCJPERMUTE.BLI;1 
ZSBITL_'COPY_STR <= Copy string source to destination’ 
ROUTINE COPY_STR (SOURCE_LEN, SOURCE_PTR, DEST_LEN, DEST_PTR) : NOVALUE = 


FUNCTIONAL DESCRIPTION: 


This routine Sopres the le described by SOURCE_LEN and 
SOURCE_PTR to the area pointed to by DEST_PTR. 


Upon completion, DEST_PTR points to the next character position 
in the output string and DEST_LEN has been updated to reflect 
the number of characters copied. 

Trailing white space is deleted from the source string. 


FORMAL PARAMETERS: 


SOURCE_LEN = Lengen of source string 

SOURCE PTR = CHSPTR to source string 

DEST_LEN = Address of destination string length variable 

DEST_PTR = Address of a CHSPTR to destination string 
IMPLICIT INPUTS: 

None 
IMPLICIT OUTPUTS: 

None 


ROUTINE VALUE: 
COMPLETION CODES: 


None 
SIDE EFFECTS: 
None 


SOOQOCOOCOOCSOOCOSCOOOSOOOSOSOSOSOSOSOSOSOOOOOOOOOO OOOO OCOSO OOOO OOOOOOCOOO 


DOOGOOODOOOOVOO ODO OOOO OODOODOOODODOODODDDDODOODOOOOOOOO 


BPP ES S&F AWAWIWNWIAI WII PNPIPNIPINININID 2 2 OO OO SS | OO 
NOUS WR 0 ODNOA UNE WIN 0 ODNOU EWN (OO ONOU EWN O OONAUE WN OOONOUES wr 


WRN OPOPOPOPOPONOPOPONPUNONYDYD 2 9 2 a 


Be Se Ge Se Be Be Se Ge Ge Be Be Ge Se Se Be Se Ge Ge Ge Ge Ge Se Se Se Ge Ge Se Ge Se Ge Se Ge Ge Ge Ge Se Se Se Se FF Se Se Ge FH Se Se Se SH Se Se SESH Se Se ee Ss es 


CAL 
WHITE SPACE, 
FROM_PTR; 
FROM_PTR = .SOURCE_PTR; 
WHITE_SPACE = -1; 
INCR I FROM 1 TO .SOURCE_LEN DO 
BEGIN 


LOCAL 


-—N } 


nae 3 


PERMUT PERMUTE == Permute index entries Sep-1984 01:27:55 AX-11 Bliss-32 V4.0-742 

Yoon 800 COPY_STR == Copy string source to destination 18- sen- 1984 94385528 RUNOFF .SR ROIP PERMUTE.BLI;1 vos 
; «784 94 CH; ! Current character : 
: 785 348 3 
; 187 ae9 CH = CHSRCHAR_A (FROM_PTR); : 
; 788 826 SELECTONE .CH OF 3 
> 789 92 SET | ; 
; 790 954 3 
: 791 955 CRINTES): 3 
; 328 4 BEGIN : 
3; 0957 4 ' 3 
; 794 0958 4 ! RUNOFF escape sequence : 
: 795 959 4&4 ! 3 
; 79 960 4 3 
3; 961 4 CAL : 
; 798 0962 4 PUNE TION.CODE.. : 
: 799 0963 4 OPERAND; 3 
; 800 0964 4 3 
; 801 0965 4 FUNCTION_CODE = CHSRCHAR_A (FROM_PTR); : 
; 80 0966 4 OPERAND = = “CHSRCHAR_A A CEROM M_PTR); 3 
; 80 0967 4 =. 2; 3 
; 804 0968 4 3 
: 805 0969 4 IF .FUNCTION_CODE NEQ %C'P* : 
; 806 0970 4 THE 3 
; 807 0971 5 BEGIN : 
; 808 0972 5 ' 3 
; 809 0975 5 Copy any runoff sequence except the nopermute sequence 3 
; 810 0974 5 3 
; «6811 0975 «5 CHSWCHAR_A A (.CH, 3 
3 aig 0976 5 CHSWCHAR_A (. FUNCTION. CObe TO_PTR); 3 
: 81 0977 5 CHSW CHARA ( -OPERAND, I 0_PTR);~ ; 
; B14 0978 5 TO. LEN =~-TO-LEN * 3; : 
; 6815 0979 4 3 F 
; 816 0980 4 = 3 
; 817 0981 4 WHITE_SPACE = -1; ! No trailing white space : 
; 818 098 END; : 
; 819 098 ; 
; 820 0984 Cxc* ', TABI: : 
; 821 0985 4 BEGIN : 
; Bs¢ 0986 4 ! : 
s Ge 0987 4 i Blank or TAB. 3 
; 824 0988 4 i Remove extra whitespace by inserting a blank for : 
; 825 0989 4 i only the first one seen. F 
; 826 0990 4 i 

; 4 7 991 4 IF .WHITE_SPACE EQL -1 

3 8 992 4 THE 

; 829 099 BEGIN 

3 ; 0 0994 ! 

: «831 0995 i No blanks or tabs seen yet. Save position and insert a 

3 S36 444) 5 blank in the output string. 

3 Ht 99 

; 34 998 OHITE E_SPACE = TOLER: 

s 835 999 ENOMERAR R_A «xc? . TO. PTR); 

3 4 1000 TO_LEN = .TO_LEN + 1;7 

3 1001 4 END; 

; S36 1 § 4 

; 839 1 ; END; 

; 840 1004 


j 
| 
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PERMUT PERMUTE == Permute index entries 1s ep-1984 55 AX-11 Bliss- 4.0-74 
voe-008 COPY_STR == Copy string source to destination 14- 300-1382 94: 6532 46 RUNOFF . SRC PERMUTE BL iat eas 3} 
: 4] 5 ; COTHERWI SE]: 
aes 1007 4 re oe 
; 0 @ normal character 
: re 1940 d Due sence -1 
: Bes 1014 4 ace AS CCH. TO,PTRD: 
; » Ts 
; 849 1918 END 
; 850 1014 
; 891 1015 TES; 
3 Beg 1019 END; 
; 854 1018 
; 855 101 IF WHITE _SPACE NEQ 1 
; 856 1020 
: 837 1083 NREGIN 
$28 \OSz Delete trailing whitespace 
; 861 1025 TO_PTR = CHSPLUS (.TO_PTR, (.WHITE_SPACE - .TO_LEN)); 
: 862 1026 3 TO“LEN = .WHITE_SPACE?: 
3; 86 1027 3 END; 
: 864 1028 
: 865 1029 1 END; 
OOFC 00000 coPY_sTR: 
.WORD Save R2,R3,R4,R5,R6,R7 : 0892 
53 0c AC DO 00002 MOVL DEST LEN. R3 > 0934 
51 10 AC DO 00006 MOVL DEST R1 ; 0935 
55 08 AC DO OO00A MOVL SOURCE Rte FROM. PTR : 0941 
50 01 CE 0000E MNEGL , WHITE_SPAC > 0942 
54 04 90011 CLRL + 0944 
63 (11 0013 BRB $ : 
52 85 9A 9901 1$: MOVZBL (FROM_PTR)+, CH : 0950 
000000006 &F 52 pI 9018 cHPL H, #RINTES : 0955 
56 S 9A 00021 MOVZBL (FROM_PTR)+, FUNCTION_CODE : 0965 
57 85 9A 00024 MOVZBL (FROM“PTR)+, OPERAND : 0966 
54 0@ CO 99 7 ADDL2 ee : 0967 
00000050 = BF D1 A CMPL FUNCTION_CODE, #80 : 0969 
15 13 00031 BEQL 2s : 
00 «Bt 52 90 000 3 MOVB CH, a0(R1) : 0975 
61 6 00 INCL (r1) F 
00 «Bl 86 9 MOVB = FUNCTION_CODE, @0(R1) : 0976 
61 6 D INCL (R1) : 
00 «Bt 7 90 : MOVB OPERAND, @0(R1) : 0977 
61 6 04 INCL (R1) ; 
3  ¢ 4 ADDL2 #3, (R3) ; 0978 
0 1 CF 04 2$ MNEGL #1, WHITE_SPACE : 0981 
1 4B BRB 7$ : 0952 
20 D1 Bee 3$ CMPL CH, #32 ; 0984 
09 13 0005 BEQL 4$ ; 


8 

4 bee 143 PERMUTE == Permute index entries 16 “Sep p- 138% 04:62 755 AX-11 BLi 13%, -32 V4.0-742 Page : 9 
Vv04-00: COPY_STR == Copy string source to destination 14=-Sep- 7:46 RUNOFF, BR C PERMU TE.BLI;1 ( Vv 
000000006 8F 52 01 g CMPL gH. #TAB : : 
1 \¢ BNEQ $ é e 
FFFFFFFF 8F 5 4$: CMPL WHITE_SPACE, #-1 : : 
14 ¢ BNEQ 7$ : : 
50 MOVL (R3), waits SPACE : : 
00 «BI 504 MOVB #32, a0(R : : 
11 6B BRB 6$ : ; 
50 1 gf bgp 5$: MNEGL #1, WHITE SPACE 3 : 
00 Bi 2 070 MOVB CH, a0(RIS ; ; 
61 26 00074 6$ INCL (RI) : ; 
63 D6 00076 INCL. (R3) : ; 
98 54 04 af F Boe 7$ AOBLEQ SOURCE_LEN, I, 1$ : : 
FFFFFFFF © @F 50 D 70 CMPL WHITE_SPACE, #=1 ; : 
OA 13 00084 BEQL : : 
52 50 63 C 0086 SUBL3 (R3), WHITE_SPACE, R2 ; ‘ 
61 26 CO O008A ADDL2 : : 
63 $0 D0 00080 MOVL  WHITE_SPACE, (R3) ; : 
04 00090 8$: RET : : 
; Routine Size: 145 bytes, Routine Base: SCODES + 0396 : 
; 866 1030 1 : 
; 867 1031 1 END ! End of module : 
; 868 1032 0 ELUDOM : 
; PSECT SUMMARY 3 
: Name Bytes Attributes : 
: SCODES 1063 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; 
; Library Statistics : 
oe eg alas en eo oa be Symbols -------- Pages Processing : 
$ File Total Loaded Percent Mapped Time : 
;  _$255$DUA28:CSYSLIBIXPORT.L32; 1 590 28 4 252 00:00.1 3 
: COMMAND QUALIFIERS : 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:PERMUTE/OBJ=OBJ$:PERMUTE MSRC$:PERMUTE/UPDATE=(ENHS: PERMUTE) 
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RMUT PERMUTE == Permute index entries 1b-se -1984 01:27:55 VAX-11 Bliss-32 V4.0-742 P 1 
voor COPY_STR == Copy string source to destination . eat 


Size: 1063 code + 0 data bytes 
Run Time: 2 


Elapsed Time: : 
Lines/CPU Min: ose 
Lexemes/CPU-Min: 24725 
poner? Used: 133 pages 
Compilation Complete 


ENT CORPORATION 
ND PROPRIETARY 


P 


307 AH-BT13A-SE 
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